home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TDBlockWrite.asc < prev    next >
Text File  |  1980-03-12  |  989b  |  41 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Td Open 
  13. '  -Wb Td Close
  14. '  -Wb Block Write 
  15. '  -Wb Block Read
  16. '  -Wb Td Motor Off
  17. '
  18. Screen Open 0,640,256,16,$8000
  19. Curs Off : Flash Off : Cls 2
  20. Ink 0,2
  21. '
  22. 'Ouverture du TrackDisk
  23. A=Wb Td Open(0,0)
  24. '
  25. Reserve As Work 10,512
  26. Wb Block Write A,$15000 To 0
  27. Wb Block Read A,0 To Start(10)
  28. '
  29. I=0
  30. For T=0 To 20
  31.    I$=Peek$(Start(10)+I,24)
  32.    VI=Varptr(I$)
  33.    Text 4,10+(T*9),I$+" :"+(Hex$(Leek(VI),8)+" "+Hex$(Leek(VI+4),8)+" "+Hex$(Leek(VI+8),8)+" "+Hex$(Leek(VI+12),8)+" "+Hex$(Leek(VI+16),8)+" "+Hex$(Leek(VI+20),8))-"$"
  34.    Add I,24
  35. Next T
  36. '
  37. 'Eteint le moteur
  38. Wb Td Motor Off A
  39. 'Fermeture du TrackDisk
  40. Wb Td Close A
  41.